home *** CD-ROM | disk | FTP | other *** search
- on wait x,res
- -- Copyright 1995 Interactive Media Design, Inc.
- -- causes a pause for duration specified.
- -- x - how many of "res" to wait
- -- res - resolution, #t = ticks, #s = seconds, #m = minutes, #h = hours
- if voidP(res) then
- set res = #t
- end if
- if res = #sound then
- repeat while soundBusy(x)
- idle
- updateStage
- end repeat
- else
- if res = #t then
- set y = 1
- else if res = #s then
- set y = 60
- else if res = #m then
- set y = 60 * 60
- else if res = #h then
- set y = power(60,3)
- end if
- startTimer
- repeat while the timer <= (x * y)
- nothing
- updateStage
- end repeat
- end if
- end